<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2948</cardID>
<listID>2166</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>416</width>
<height>208</height>
</cardSize>
<script>on openStackglobal gDataPathloadPref gDataPath & "UUCP.pref"loadPref gDataPath & "Sequence.pref"newSequenceset name of bg btn id 26 to "Pause"put "" into bg fld "runLog"put "" into bg fld "display"send initSqManager to this bgif the shiftKey = "up" thensend startSq to this bgelsesend "togglePause Pause" to bg btn id 26end ifend openStackon closeStack-- send editdone to bg btn id 45put "" into bg fld "runLog"put "" into bg fld "display"put "" into bg fld "bar"set name of bg btn id 26 to "Pause"if freeSize of this stack > 5000 then domenu "compact stack"saveLogend closeStackon suspendStackif name of bg btn id 26 = "Pause" thensend "togglePause Pause" to bg btn id 26answer "Putting 'Run Sequences' window to background will pause the sequeances."end ifend suspendStackon resumeStackend resumeStackon newSequenceput bg fld "runSq" into tglobal gDataPathput readPref(gDataPath & "Server.pref","","Enable Gateway") into doFCGaterepeat with k = number of lines of t down to 1get line k of tif word 1 of it = "FirstClass" thenif doFCGate thenput "FC_CheckMail" & return & "FirstClass" & return & "FC_ScanInBox" into ﾂｬline k of telsedelete line k of tend ifend ifend repeatput "compact" & return after tput t into bg fld "runSq"end newSequenceon saveLogglobal gLogMode,gLogFile,gLogDelim,gLogListif gLogMode thenHD_AppendFile gLogFile,gLogListput "" into gLogListend ifend saveLog</script>
